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Disclaimer 



Although tliis program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 



Description of Program 



The machine is initiaJLly endowed with some intelligence, but 
with no foresight. It will not make plays which axe immediately 
disastrous, but must be trapped into defeat* The logical sequence 
which is followed in general is as follows: 

1. Play center square if possible, otherwise upper 
left hand corner. 

2. If possible to win on this play, do so, 

3 . If forced to play so as to prevent immediate defeat, 
do so« 

k» Generate a random, legal play, 

\i/henever the machine is beaten, a record of the plays is kept 
(and pimched) • Later, these records are ref ered to whenever random 
plays sure generated, so as not to repeat the mistake* 

Externally, the positions are numbered the same as the keys 
on the typewriter, ie. 



Internally, a different numbering scheme is used. 
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Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 

/ 



This is done in order to make bookkeeping easier, since the 
above is a so-called magic square. The s\m of digits in any row, 
column, or diagonal is 15 • 

It is estimated that there are on the order of 100 ways to 
heat the machine. 

Using the Program 

Load the Tic Tac Toe deck in the read hopper, followed by data 
cards punched out in previous games, if desired. Load with the LOAD 
key and follow the typed out instructions . The punch should be 
READY. 

Addresses for reference 

Staxt of new game: 01kk6 

To "Brainwash" machine: 01302 
Maintenajice 

The program may be modified for use with paper tape making the 
following changes. 

1. Add (In numerical seq.uence) 

02195 TD OUTPUT + 1, RECMK 

05135 SM COUNT, 6 

2. Change the following statements to be as shown. 

02200 \mPT OUTPUT-5 

05100 RNPT 

05130 BCl READ 

When a READER NO FEED occurs, turn off switch 1, push RELEASE, 
START. 



TK TAC TOE 







AOS 







• * r 










PL^YZ 







fS 


1 




X 





STO/tiF PLi^VS, 
/A/ MiZ^Mif JZ 








V.' T 



































- 














/ ft: 



COMPUTER 
TECHlslOLOGY 



pi2fNT 



0w4:4 
s>w4S0 

0Ci4Qa 
0040S 

0C522 
00334 
O0S46 
00553 
0^270 
0CSC2 
.00594 
0606 
00613 

00642 
0C6S4" 
0666. 
00673 
0690 
0702 
0714 

~0 0726" 
0738 
00750 
00762 
0774 
0786 

*0079S 
OOSl 

"0 0822 
00834 
0846 
O0S53 
0870 
0082 
0394 
0906 
0918 
0930 
0942 
00954 
0966 
0978 
00990 



► - % 
4$iC7 

4srr44?^wo 
^^.'-^iSl^oo 

3t?'"«!fcS^72'" 

■43;'JiifejB22"' 

49 '<*v4S0"' 
45 C05A'6 
49 00493 
33 00060 
'25 "00581" 
25 00060 
25~0C6C5- 
44 00493 

23 00636 
"33 "■■l 0069'" 
23 00660 
2'55."""1'99^59 " 

15 00060 
42 • COOOO"" 

16 00699 
••25'" vO-72"5-^ 
25 
TZ' 
25 
25" 
12 

'25 
25 
TZ 
46 
42' 
43 
32 
32 
1 1 ■ 
26 
1 1 
39 
26" 
38 
49 
16 
25 
25 
12 



00737 
00699 

00773" 
00699 
00797 
00309 

oce99- 

00834 

00858 
19956 
19951 
02921 
0292J 

02665 

u.. « 

02922 

01446" 

00963 

009C9 

01001 

O0963 



C0060 

' « ^ » 
WW 1 w s,^ 

wO WV iJ 

00 1 02 

Ovi^ roc 

V 1 w v.* 
WW w6u 

w w 1 *w w 
WW w W 

00060 
00000 
00000 
~00"060~ 
19979 

W W w w w 

1 9969 

■ /», «, ••■ " 

w w w w w 

OO 060 
'00000" 
00617 
"CC05C" 
00000 
wOOOw 
0-»0 JS 
"00639"* 
199 59 
'OO'O— O'" 
006S8 
19959" 

000 — 
00637 
19959 

"CC 0— C" 
01200 
00000" 
19959 
00000 ' 
00000 
—0006 
19956 
— 1 

00 1 00 
19956' 
00400 

-COOOO 
O-OJS 
00953 
1 9959 
000-0 



ICIQ 

!i040.-: 

! } wU w 

I w90" 

ino':' 

I I no- 
il 1 13 
;in6' 

■:ri3^" 

1 140 
1 I se- 
ll 160 

;1170' 

neo 

■jl 190" 
11200 
•."20 1 C 

i2015 
■|2020-- 

i2C30 
■,2040"" 

12045 

: o rrrv- 

;2060 

■ ^2C'65' 
12070 

■ 1 2080" 
;20£5 

■ 2090- 
12100 
•2110" 
:212C 
2130 
2140 
2150 
2160 
.2170 
:21S0 
,2190 
i2200 

■i30lO- 
13020 
3030 

I •n r; 
I w w ^ 

3040 



:\v;aty 

uplay ■.,i5cty 
• '"^ >;aty 
?:nty 

ER;^cr? v;aty 

. ........... 

. ... ^ „ ^ 

■ '■ CP 

to ■ 

TO ■ ■ 

RECORD TD 

" —--^P 

TD 

- '"TD' - 
TDM 

„: ^_ .. 

WW 

YOUWIN TFM 

^■■■TD'""~": 

TD 

' :•£:.;■••■■" • 

T.D. 
TD 
SM 

~ TD 
f D 

■ ■•■ sw - 

'EE 
30 

sr 

SF 

AM 
TF 
AW 
WATY 
TF " ■ 
WNCD 

TFM 
TD 
TD 



602 . 

w.{.35i602 

I * MM W W W In* 

"UPLAY2 " 
^^+24f 602 

£Kno??2 '' ■■" ' 

602.- 

'«t23T602"~:'" ■ 
60 .TRANS I 2 
^^+23»'602 
ERROR* LEG AL2 

"2 ' 

^fr*Me»6C2 
"LEGAL2 " ' 

1 8 i RECORD- 1 2 
PLAYS « 602 " 
602 



LOST 



FORCE 



*+9» 15«8102 
^^+23 ♦ YOUW IN- rz 
:J'+23»PLAYSZ 

Youv/iN+9i » roz ■ 

-^^+23f YOUV'IN-22 

^^•l-23»PL'AYS2r- 

Y0'JV.'IN+9» » 102 
-«-+23i Y0'JV.'IN-32 ' 
^-+23»PLAYS2 
Y0UWIN+9» i 102 — ~ 
L0ST2 
■■" 2 

-X+24«PLAYS2 
PLAYS-32 
PLAYS-82 
COUNT •62 

COUNT •PLAYS-3»62 

SEQNO t 12 " ^ ■ 
MESS4 2 

OUTPUT » PLAYS-32 
0UTPUT-S2 

RESET2 - • " 

F0RCE+9,15»G102 
^^+23* FORCE- 1 2 
^c-+23«PLAYS2 
F0RCE+9,»102 " 



I 




















00952 


3050 




0Iwl4 


2d 


01037 


1 9959 


3055 


1 C26 


I 2 


C&963 


CCO-0 






47 


01158 


Oil 00 






01030 


1 4 




V/ w W ^ 


i"i 




i 062 


46 


oil 53 


01 1 O 






I C74 


25 


01 097 


CO "DAT 






I GB6 


44 


01 1 58 


1 9969 


31 10 




I 098 


25 


00060 


00963 


'3.1 20 


i 


■ OHIO 


43 


01 1 53 


00951 


31 30 


i 


I 122 


1 7 


CG402 


^ n »« 
U \,' W v/ 


3140 


1 


1 134 


39 


C26b3 


00 1 00 


31 2« 




1146 




01 446 


ooooo 


31 60 


) 


1 1 5C 


42 





\^ ^ ^ 


'2170 

: W X f .\J 


1 

1 


01 170 


34 


<LJ ll) O Cv L J 
\0 w w. w w 




I W * W 




1 1 82 


39 


02753 


00 1 00 


402 




01 1 94 


3 4 


00000 




n 

^ "r w «d w 


j 

i 


1206 


34 


00000 


00102 


i ^ n ^ i.) 

j ^ \J "T, W 


I 


1213 


39 


02B09 


00100 


405 


i , 


1230 


34 


00000" 


001 02 


4060 


i 

t 


1 242 


34 


/■^ ^. 

\^ \J ^ ^ 


00 1 02 


4070 


! 
t 


1 254 


39 


02825 


00 10 




! 


01 266 


34 


00 GOO 


00 1 02 


W y w' 


! 


1273 


34 


ooooo 


00 1 02- 






1 290 


39 


02 84 1 


00 1 00 


4 11 


i 


"" " 01302 


34 


00000" 


001 02 


14120 




01 314 


16 


0292 1 


— 3007 


i SG 1 
: jw 4 «^ 


! C 


1 326' 


34 


00000 


00 1 02 • 


5020 


1 338 


39 


02697 


CO 1 00 


5030 




135 


48 


OOOQC 

\^ v w \^ 


c o o 

w w w w \> 


■J W *T w 




1362 


47 


01 446 


00 100 


^5050 




■ 1374 


26" 


01404 


02921 


50-80 




1 336 


1 1 


01 404 


-0001 


BO 90 


1 


1 393 


36 


C/ O 


00500 


51 00 


,i 


141 


11 • 


0300 1 


-0001 


511 


i 


1 422 


11 


02921' 


— 006~ 


5 120 




1 434 


47 


01 3"74 


00900 


5130 




■'01 446 


34 


OOOOO 


00 1 02 


51 40 


! 
i 


1458 


39 


02877 


CO 100 


5 1 42 




' " ~ 147 


3 1 


1 9961 " 


02907 ~ 


51 44 


; 


1 402 


26 


1 9959 


02905 


51 50 




~ 1 494 


1 7 


00450 


000—0 


5 1 60 


1 


1 506 


1 7 


0061 S 


000-1 


51 70 


i 
1 


1518 


15 


00060 


0OO02 


51 SO 




1 530 


44 


01 554 


1 9965 


51 90 




1 542 


1 5 


00060 


00005 


52 00 


! 


1554 


1 7 


00402 


000-0 


60 1 


\ 

i 


1 566 


1 7 


0061 8 


000-2 


6020 


1 


n 1 57S 


1 7 


G045C 


000 — 


<j o w 




1 590 


17 


'0061 8" 


000-3 


16040 


1 


1602 


17 


00954 


00J13 


6CS0 




1614 


45 


01890 


00060 


6060 


|: 


1626 


31 


19941 


1 9961 


6070 


H 9 


1 638 


16 


03006 


-3007 


6080 



IV I N 



NOFORS 
START 



READ 



•RESET 



PL A Y I 



PLAY2 
PC.AY3 

HUNT 4 



ID 

Ttd 

ciNH 
CM 

TD 

BNF 

TD 

2D 

GTM 

V.'ATY 

S 

BB 
RCTY 

v;aty 

RCTY 

RCTY 

ViATY 

RCTY 

RCTY 

WATY 

RCTY 

RCTY 

•u'ATY 

RCTY 

TFM 

RCTY 

U/ATY 

H 

3 NCI 
TF 

AM 

RNCD 

AM 

AM 

BNLC 
RCTY 
VMTY 
TR ~ 
TF 
BTM 
6TM 
"TDM 
BNF 
TDM 
BTM 
BTM 
BTM 
BTM 
BTM 
BD 
TR 
TFM 



v.l-22«FCRCE-2Z 

F0RCE+9««102: 
NOFORSZ 
F0RCE-I'9|9* ICZ 
NOFORSZ 
•J{-+23»F0RCE+9Z 
NOFOkSfLEGALZ 
6C«FO.-:5CE+9Z 
NOFORS ♦F0RCE-3Z" 
MYPLAY« • lOZ 
MSSS5Z ' 
RESET? 
z . 

Z 

MESS6Z 



MESS9Z 



MESS 1 OZ 

z 

MESSl IZ 

■ ■ z ■■ ■ ■■■■■■ ■ ■ 

COUNT rDATAZ 

z ^ ■• 

MESS6Z 

z 

RESETZ 

•«' + 30»COUNTZ : - 
^•+18tlZ 

z 

SEGNO 1 1 Z 

COUNT «6Z '"~ 
READZ 

z 

MESSl 3Z 

LEGAL-3»FLAGS-BZ 
PLAYS fZEROSZ 
UPLAY* • lOZ 
RECORD*! «10Z 
60»2Z 

PLAY2»L£GAL-4Z 
60 fSZ ". 
MYFLAY*«10Z 
RECORD* 2« 1 OZ 
UPLAYftlOZ 
R£C0RDi3tl OZ 
FORCE* 1 13 «9Z 
PLAY4*60Z 
TEMP-B « LEG AL-SZ 
TEST»DATAZ 



1 650 
01662 
0i674 
01686 
01698 
01710 

omn 

01734 

01746 

01758 

01770 

1782 

01794 

01806- 

01313 

OIB30 

I 842 

01834' 

01866 

'0 1 878 
1890 
1902 
01914 
1926 
01938 

•01950" 

01962 

1 974 

1986 

01993 

02010 

02022 

02034 

02046 

02053 

"02070 
020.82 
O2094 
02106 
021 18 
02130 
02142 
02154 
02166 
02178 
0219c; 
02202 
02214 
02226 
02238 
02250 
02262 
02274 
02286 



24 
46 
1 1 

46 
1 X 



44 
12 
25 
33 
1 1 



mm 8' 
'o^ii$6 

49 Ot^O 
11 03006 
01650 

017B8 
19949 
03006 
49-01650 
21 02896 
01354 
01016 
01577 
01818 
00060 
00402 
00618 
004SO 
006 i 8 
009S4 
00954 
02238 
00954" 
02238 
1 9941 
03006 
03006 
02166 
03006 
03000 
02106 
03006 
02022 
03006 
02148' 
02148 
1 9949" 
02022 
02836' 
022Q2 
02166 
02225 
02166 
00060 
00402 
00618 
00450 
00618 
00690 



43 
49 
25 
44 
25 
1 7 
17 
17 
"17 
17 
17 
43 
17 
43 
31 
16 
24 
46 
1 1 
24 
"46 
1 1 
'49 
1 1 
25 
33 
33 
49 
2 1 
43 
49 
25 
44 
25 
17 
17 
17 
17 
17 



02921 
012Q0 

-0003 
1 9953 
01200 
-0003 

00000 
-0003 ■ 
03000 
-0002 
03000 
00000 
-0002 
00000- 
02896 
"02895" 
00000 
"02895" 
1 9949 
02895" 
000-0 

000-4" 
000-0 
000-5"* 
00-24 

•■'00 J 15" 
00060 

""00J35" 
00060 

"19961 " 
-3007 
02921 ■ 
01200 
-0005" 
1 9955 

"01200" 
-0001 
00000" 
-0001 

"03000" 
00000 

"OOOCO" 
00000 
02896 
02895 
00000 
02895 

"10949 
02895 
000-0 
000-6 
000-0 
000-7 
0-137 



6090 

6100 • ' 

6110 

6120 

6130 

6140 " " ■ " 
'6150 

6160 CLeAR4' 
6170 

'6180 " " 
6190 

6200 "" 
;70 1 

.7020 

j7030 FIND4 
,7033 7"" 
'7036 

,7040 

17050 ■ 
7060— " " 
:7070 PLAY4 
7080 ■ 
7090 PLAY5 
7100 
|71 10 

;7r20- • • - — 
17130 . 
,7140 
'7150 

7160' HUNT 6" 

7170 

7130 

171 90 

7200"^ """ 
8010 

8020 ' 
!S030 

8040 

.8050 GLEAR6 

,8060 " 

58070 

■8080 

'8090 

8100 FIND6" 
81 03 

,8106 ""■" "" 
181 10 

3120 " 

18130 

.8140- PLAY6 
18150 

8160 PLAY7 

8170 

6180 



8 HUNT4+24Z 

AM TEST f 32 

3NF HUNT4^«4 • TEST 1 1 i Z 

Cr ' TEMP2 **■ 

AM TEST»22 

a ■ HUNT4-f242 

A NUMBfNUMdZ 

aO ~ •s^+24 4NUMa*l2 ~ 

8 . FIN04Z 

TP " *<f23»NUM8-lZ* : 

6NF FlND4»TeMP2 

TD 60»'NUMB-1Z " 

BTiM MYPLAY* « 1 02 

3TM RECORD* 4 i 102 

BTM UPU.AY* f 102 

8TM~ RECORD fS* 1 02™ " 

HTM FORCE •24* 92 

3TM FORCE « 115 f9Z *? 

BD PLAY6#602 . 

BTM~ " FORCE i 1 35 « 92 ~ 

BD PLAY6«60Z 

TR " " TEl/P-a f LEG At~-S2""~ 

TFM TEST* DAT A2 

C TEST • COUNTT"- ' 

3£ FIND62 

AM TEST* 52 "'" ' 

C TEST«PLAYS-4<62 
BE""" CLEAR6Z" ^ 

AM TEST. 12 

B ■■ HUNT6+24Z 

AM TESTt 12 

TD -Jf+SOf TESTYnZ""'"^'" "" 

CF *+18Z 

CF TEMPZ " "" " ~" 

B HUNT6+242 

A NUWaiNUMBZ 

3D *+24«NUMB-12 

U FIND62 "" "■ 

TD «^+23«NUMB-12 
BNF " FIND6.TEMP2 ~~ 

TD 60 ♦NUMB-IZ 

STM MYPLAY • . 1 OZ 

BTM RECORD • 6* lOZ 

ETM UPLAY* t lOZ 

BTM RECORD* 7« 1 02 

BTM YOUWIN* 137.3Z 



W (S^^f* ✓ Vi- 


1 7 




i b7 


\ n r'\ 

81 90 




DTM 


YCUVv'IN* 157«az 




ft P "J 1 Cj 
U £> «9 A w 




• A A AO A 


v-357 


6<£0<'/ 




OTM 


Y0UWINO57*eZ 






1 T 


AAri.-" /• 

v/uyo4 


00-26 


90 1 




BTM 


FORCE 4 26 ♦92 




«M W *T 


1 *7 
k 1 


- UU V ID4 


00-^46 


*h *^ 

,Vo20 




8TM 


FORCE «46«9Z 




f\ P *^ A A 


1 "7 
i / 




00 J 17 


9030 




STM 


FORCE* 1 17«9Z 








Otf430 


00060 


:9040 




BD 


PLAYc:t60Z 




ft o ^ rk 


1 7 


0Sv54 


00v»37 


90 SO 




BTM 


FOI-JCE* 137«9Z 








02430 


00060 


9060 




BD 


PLAY6 ♦eOZ 


r 


A 5) OO A 
CwVS' 


1 7 


UU954 


00 J57 


'9070 




BTM 


FORCE* 157 ♦9Z 




A 5> A A A 




w24o0 


00060 


9080 




BD 


PLAYS ,602 




U & 1 O 






00000 


9090 




e 


TIEZ 






1 7 


00402 


000-0 


91 00 


PLAYS 


BTM 


MYPLAY«'»10Z 








A A iC ♦ ft 


000— s 


9110 




BTM 


REC0RDt8« 1 02 




■A O /■ K * 


1 7 


OO45O 


000—0 


■9120" 


■'PLAY9 ■ 


BTM 


UPLAY»»10Z 






1 7 


0061 3 


00 0-9 


191 30 




B TM 


RECORD* 9i 1 OZ 




A O /i ^ Q 


i 7 


UUO90 


0-1 39 


•91 40 




BTM 


YOUWINf 139»SZ 




A O Vi A 


17 


00690 


0-159 


:91 50 




BTM 


YOUV;iN» 159«8Z 




02502 


17 


00690 ' 


0-179 


9160 




BTM 


YOUWIN* 179«aZ 






1 7 




0-359 


9170 




STM 


Y0UVw'IN,359»az 




A p er 5 A 






0—379 


91 80 




BTM 


Y0'uWI N t379« 8Z 




A P "3 Q 




A '> A 


0—579 


91 90 




BTM 


Y0UWIN»579»8Z 




Vy ^ 






A A 1 p. A 


A A 

y2 00 


T I Ll 


WATY 


MESS12Z 








A r A /I A 


A A A A A 
U U U U U 


1 c c 1 




8 


RESETZ 




U / to 




11 




1 0020 


MESSl 


DAC 


1 1 ♦YOUR "PL AY - 




i>i/ «- ^ f 




i 








□ AC 


16*' MY PLAY 


IS 5-Z 






1 


-—. 


1 A A /» A 

1 w U f U 




OAC 


18« ILLEGAL ♦TRY 


AGAIN-2 


f\ O A <. a 





9 




10c 50. 


MESS4 


DAC 


9i YOU WIN-Z 




A p ->~ 






.... . 


1 CC60 


MESS5 


DAC 


7% I WIN-Z" 




rt PAO"7 
U CO V / 








10070 


MESS 6 


DAC 


28. Sv; 1 ON FOR 


DATA •PUSH START-2 


<- • P J 




28 




1 Q090 


MESS 8 


DAC 


28 ♦ SQUARES NUMBERED AS FOLLOIVS-Z 






3 




1 C 1 00 


MESS9 


DAC 


S« 1 2 3-2 




2 d2 5 




3 




1 pl 10 


MESS 1 


DAC 


8.4 5 6-2 




02S4 1 


. ... 


3 




1 C120 


MESS 11 


DAC 


3.7 8 9-Z 




c> rr' -V ■ 
U <C O D T 




10 




1 C 1 30 


MESS 12 


DAC " 


10 « TIE GAME-Z 




/»\ O O "7 




.. .. 9 




1 1 4 


MESS 1 3 


DAC 


9 ♦NEW GAME-Z 




d 2396 




■ 3 




1;C 1 50 " 


KUMs; 


"DC" 


3.561Z 




r\ 0,0 A 




9 




101 60 


ZEROS 


DC 


9*02 




02907 








1 1 10" 




DC 


2 ♦-I 2 




2 909 




2 




11020 




DG 


2^-23Z 




1 ^11 




■ 2 ' 




11 030 




DC 


^♦-45Z — — - 




A P 1 




■.■■p. 


„.-. 


1 1 040 




DC 


2^-67Z 




u 9 1 5 




■ :2 ■ 




1 1 050 


FLAGS " 


DC 


'2 ♦-892 








1 




1 1 060 


REGMK 


DC 


1 ♦-Z 










. . ...„„ .... 


1 1 0/^ 


COUNT 


DS 


32 








^■;6 




11 071 


OUTPUT 


DS 


62 




2 92 








11 072 




DC 


1 ♦-z ■ 




02962 




34 




1 1073 




DNB 


342 




02996 




34 




1 1074 




DN3 


342 




03001 




. . S 




1; 1 075 


SEQNO 


DC 


5^02 




A *3 "1 








1 1 C80 


TEST 


DS 


52 




3007 








1 1 090 


DATA 


DS 


1 z- 




1 9949 




.9 




1 1 1 00 


TE.v.P 


DS 


9,1 9949Z 




1 9959 




9 




11 1 10 


PLAYS 


DS 


9 ♦,199592 




19969 




' 9 . 




1 1 120 


LEGAL 


DS 


9* 199692 





7 



